home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / mouse 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  48 lines
  1. 0 REM  **********************
  2. 1 REM  *      MOUSE 64      *
  3. 2 REM  *                    *
  4. 3 REM  *      1984  BY      *
  5. 4 REM  *                    *
  6. 5 REM  *    PETER DREUW     *
  7. 6 REM  * MENNRATHSCHMIDT 27 *
  8. 7 REM  *                    *
  9. 8 REM  * MOENCHENGLADBACH 5 *
  10. 9 REM  *                    *
  11. 10 REM **********************
  12. 20 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  13. 30 DATA48,0,0,120,0,0,252,0,0,252,0,1,254,0,1,254
  14. 40 DATA0,0,252,0,0,48,0,0,16,0,0,16,0,0,32,0
  15. 50 DATA0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. 60 FORI=704TO767:READQ:POKEI,Q:S=S+Q:NEXT
  17. 70 IFS<>1610THENPRINT"MOUSE-DATA'S FALSCH":END
  18. 80 PRINT"MOUSE-DATA OK":S=0
  19. 85 REM PRG-DATA
  20. 90 FORI=49152TO49555:READQ:POKEI,Q:S=S+Q:NEXT
  21. 91 DATA160,231,185,117,191,32,210,255,200,208,247,160,238,185,134,191,32
  22. 92 DATA210,255,200,208,247,165,198,201,0,240,250,169,0,133,198,120,169,137
  23. 93 DATA141,20,3,169,192,141,21,3,169,17,141,14,208,169,45,141,15,208,173
  24. 94 DATA21,208,9,128,141,21,208,173,27,208,41,127,141,27,208,173,28,208,41
  25. 95 DATA127,141,28,208,169,0,141,46,208,169,11,141,255,7,88,96,0,0,255,80
  26. 96 DATA85,84,32,74,79,89,83,84,73,67,75,32,73,78,32,80,79,82,84,32,50,32
  27. 97 DATA33,13,65,78,68,32,80,82,69,83,83,32,65,78,89,32,75,69,89,0,0,0,162
  28. 98 DATA224,142,2,220,173,0,220,162,255,142,2,220,141,255,193,41,1,208,10
  29. 99 DATA173,15,208,201,45,144,3,206,15,208,173,255,193,41,2,208,10,169,236
  30. 100 DATA205,15,208,144,3,238,15,208,173,255,193,41,4,208,41,173,16,208,201
  31. 101 DATA128,144,24,173,14,208,240,5,206,14,208,208,24,173,16,208,41,127,141
  32. 102 DATA16,208,206,14,208,76,232,192,173,14,208,201,18,144,3,206,14,208,173
  33. 103 DATA255,193,41,8,208,33,173,16,208,201,128,144,13,173,14,208,201,72,240
  34. 104 DATA19,238,14,208,76,16,193,238,14,208,208,8,173,16,208,9,128,141,16
  35. 105 DATA208,162,0,173,255,193,41,16,208,1,232,142,254,193,173,23,208,41,127
  36. 106 DATA141,23,208,173,29,208,41,127,141,29,208,173,15,208,160,255,56,200
  37. 107 DATA233,8,176,251,152,233,4,168,140,253,193,173,16,208,201,128,144,20
  38. 108 DATA173,14,208,162,255,232,233,8,176,251,138,105,30,170,142,252,193,76
  39. 109 DATA108,193,56,173,14,208,162,255,232,233,8,176,251,138,233,1,170,142
  40. 110 DATA252,193,169,4,133,252,234,134,251,192,0,240,16,24,169,40,101,251
  41. 111 DATA133,251,165,252,105,0,133,252,136,208,240,177,251,141,251,193,165
  42. 112 DATA252,76,49,234,0,0,0
  43. 120 IFS<>52007THENPRINT"PRG-DATA'S FALSCH":END
  44. 130 PRINT"PRG-DATA OK"
  45. 140 PRINT"PRESS ANY KEY TO START
  46. 150 [151]198,0:[146]198,1
  47. 160 [158]49152
  48.